home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD019c.dsk / PAL.48016.MARRACCINI.MAR.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  62 lines

  1. 0  REM ***********************     *  A SOFTPAL PROGRAM  *     *---------------------*     * WRITTEN BY JEFF     *     * MARRACCINI, 03/21/83*     *---------------------*
  2. 1  REM * THIS PROGRAM IS A   *     * POOR EXAMPLE OF     *     * STRUCTURED PROGRAMS,*     * BUT IT GETS THE JOB *     * DONE...             *
  3. 2  REM ***********************
  4. 3  REM THIS PROGRAM IS PUBLIC      DOMAIN...
  5. 4  REM 
  6. 5  ONERR  GOTO 6000
  7. 10  TEXT : HOME : GOTO 1000
  8. 20  HTAB (20 - LEN(A$)/2 +1): PRINT A$: RETURN 
  9. 30  VTAB 23: INVERSE : PRINT "      ::: PLEASE PRESS A KEY :::        ";
  10. 35  NORMAL 
  11. 40  POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: RETURN 
  12. 1000 A$ = "*** MARRACCINI ADVENTURE HINTS ***": GOSUB 20
  13. 1010  PRINT : PRINT "   THE MARRACCINI ADVENTURE SERVICE     IS A QUICK & EASY WAY TO GET HINTS ON   ADVENTURES. WE CAN OFFER A EVER-EXPAND- ING LIST OF ADVENTURES TO HELP YOU WITH,";
  14. 1020  PRINT "PROMPT SERVICE, AND LOW COST."
  15. 1030  PRINT : PRINT "   OUR RATES ARE A SELF-ADDRESSED,      STAMPED ENVELOPE. ONLY TWENTY CENTS.    FEEL FREE TO ASK MULTIPLE QUESTIONS."
  16. 1040  GOSUB 30: TEXT : HOME 
  17. 1050  VTAB 1
  18. 1060  PRINT "WE CAN OFFER HELP ON THE FOLLOWING:": PRINT 
  19. 1070  READ L: FOR I = 1 TO L: READ P$: PRINT P$: NEXT 
  20. 1080  GOSUB 30
  21. 1090  HOME :A$ = "*** MARRACCINI ADVENTURE HINTS ***": GOSUB 20:A$ = "--- PROCEDURE FOR HELP ---": GOSUB 20
  22. 1100  PRINT : PRINT "TO GET HELP, PLEASE SEND A SELF-ADDRESS-ED, STAMPED ENVELOPE, ALONG WITH THE    ADVENTURE(S) YOU NEED HELP ON, YOUR     QUESTION(S), AND YOUR INVENTORY."
  23. 1105  PRINT : PRINT "OUR ADDRESS IS: ": PRINT : PRINT  SPC( 5)"MARRACCINI ADVENTURE HINTS": PRINT  SPC( 5)"5582 DVORAK": PRINT  SPC( 5)"CLARKSTON, MICHIGAN 48016"
  24. 1110  PRINT : PRINT "THANK YOU.": GOSUB 30
  25. 1120  HOME :A$ = "*** PROGRAMMER'S HELP SERVICE ***": GOSUB 20
  26. 1130  PRINT : PRINT "WE CAN ALSO HELP YOU ON YOUR PROGRAMMINGQUESTIONS. OUR LANGUAGES/PROGRAMS WE    CAN HELP YOU WITH ARE:"
  27. 1131  PRINT 
  28. 1140  READ L: FOR I = 1 TO L: READ P$: PRINT P$: NEXT I
  29. 1150  GOSUB 30: TEXT : HOME :A$ = "*** PROGRAMMER'S HELP SERVICE ***": GOSUB 20
  30. 1160  PRINT : PRINT "PLEASE SEND YOUR QUESTION(S), AND A     SELF-ADDRESSED, STAMPED ENVELOPE TO"
  31. 1170  PRINT : PRINT  SPC( 5);"PROGRAMMER'S HELP SERVICE": PRINT  SPC( 5);"5582 DVORAK": PRINT  SPC( 5);"CLARKSTON, MICHIGAN 48016": PRINT : PRINT "THANK YOU."
  32. 1180  GOSUB 30: HOME : VTAB 12: PRINT "GOODBYE....": PRINT  CHR$(13); CHR$(4)"RUN PAL.MENU,S6,D1"
  33. 6000  REM  ERROR DETECTION
  34. 6001  NORMAL 
  35. 6010  TEXT : HOME : PRINT " A  L   EEE RRR TTT": PRINT "A A L   E   R R  T  .": PRINT "AAA L   EEE RRR  T ": PRINT "A A L   E   RR   T  ."
  36. 6020  PRINT "A A LLL RRR R R  T"
  37. 6030  PRINT : PRINT "AN ERROR HAS OCCURED!!!!!": PRINT : PRINT "TYPE OF ERROR: ";
  38. 6035  IF  PEEK(222) <16  THEN  PRINT "DOS"
  39. 6037  IF  PEEK(222) > = 16  THEN  PRINT "APPLESOFT"
  40. 6040  PRINT "DESCRIPTION (IF APPLICABLE):": IF  PEEK(222) = 255  THEN  PRINT "   CTRL-C ATTEMPTED INTERRUPT"
  41. 6045  IF  PEEK(222) <255  THEN  PRINT "   PLEASE LOOK IT UP"
  42. 6060  PRINT "ERROR CODE: "; PEEK(222)
  43. 6070  PRINT : PRINT "TYPE "; CHR$(34);"RUN"; CHR$(34)" TO RESTART..."
  44. 6080  PRINT : PRINT "PROGRAM TERMINATED IN ERROR CONDITION.": END 
  45. 63900  DATA  20,"MISSION: ASTEROID"
  46. 63901  DATA  "CRANSTON MANOR","ULYSSES AND GOLDEN FLEECE"
  47. 63902  DATA  "TIME ZONE","DARK CRYSTAL (SOME)"
  48. 63903  DATA  "CRIME STOPPER","TRANSLYVANIA"
  49. 63904  DATA  "CURSE OF CROWLEY MANOR","PRISONER 2 (SOME)"
  50. 63905  DATA  "DEADLINE","STARCROSS","ADVENTURELAND"
  51. 63906  DATA  "PIRATE ADVENTURE","MISSION IMPOSSIBLE"
  52. 63907  DATA  "SHERWOOD FOREST","MASK OF THE SUN"
  53. 63908  DATA  "BLADE OF BLACKPOOLE","ESCAPE FROM RUNGISTAN"
  54. 63909  DATA  "KABUL SPY","MICROSOFT ADVENTURE (SOME)"
  55. 63910  DATA   15,"APPLESOFT BASIC","INTEGER BASIC","DOS 3.2 & DOS 3.3","CP/M","MP/M","PASCAL"  
  56. 63911  DATA  "ASSEMBLY: Z80,6502,8080, AND ASSEMBLERS"
  57. 63912  DATA  "80 COLUMN APPLICATIONS","ELECTRIC DUET APPLICATIONS"
  58. 63913  DATA  "VERSAWRITER GRAPHICS APPLICATIONS"
  59. 63914  DATA  "GRAPHICS MAGICIAN"
  60. 63915  DATA  "DIVERSI-DOS VERS. 2-C"
  61. 63916  DATA   "HAYDEN COMPILERS","SYSTEM OR PERIPHERAL ASSEMBLY"
  62. 63917  DATA  "AND PRINTING APPLICATIONS"